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.TITLE 
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DZBC DEC/X11 SYSTEM EXERCISER MODULE 
VERSION 6 23-MAY-78 

}******* ** ft* ** ************** 

:gin: 

' .ASCII 

.BYTE 

1:8 

.BYTE 
.BYTE 

OPEN 
OPEN 
1PEN 
)PEN 



hodnam: 

xflag: 

addr: 

VECTORS 



4****4*4******4***4***4***44*4*4** 



********* 



bri: 
-R2: 



BRL. 

dvidi: 

sri: 

SR2: 

SR3: 

SR4: 

********** 

140000 



/DZBC / 
OPEN 



PRTY4+0 
PRTY4+0 



>MOD 

;ist 



liKi 



a**************: 



ULE NAME. 

JUSED TO KEEP TRACK OF WBUFF USAGE 
DEVICE ADDR. 

;1ST DEVICE VECTOR. 

UST BR LEVEL. 

?2ND BR LEVEL. 

;DEVICE INDICATOR 1. 

;SWITCH REGISTER 1 

>SHITCH REGISTER 3 

;SHITCH REGISTER 3 

;SHITCH REGISTER 4 
*********************** 



******************** 



SPOINT: 
PASCNT2 

icont: _ 

icouht: 5 

sofcnt: o 

hrdcnt: q 

sofpas: 

HRDPAS: 

syscnt: o 

rannum: o 

CONFIG: 

RESl: Q 

— S2: 



START 
MODSP 

2140 



RES2- 

svro: 
SVRl: 
SVR2: 

SVR3S 
SVR4: 
SVR5: 
SVR6: 

csra: 

sbadr: 

acsr: 

hasadr 

astat: 

ERRTYP 

asb: 

ahas: 

rstrt: 

wdto: 

hdfr: 

intr: 

idnum: 

modsp: 

• *** • ■ 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

142 



************************ 



;status word. 

pmodule start addr. 

;hodule stack pointer. 

;pass counter. 

;# of iterations per pass=2140 

hoc to count iterations 

;l0c to save total soft errors 

;loc to save total hard errors 

;loc to save soft errors per pass 

;loc to save hard errors per pass 

;i of sys errors accumulated 

;h0lds random % when rand macro is called 

;reserved for monitor use 

reserved for monitor use 

reserved for monitor use 

;l0c to save r0. 

;LOC TO SAVE Rl. 

;LOC TO SAVE R2. 

;LOC TO SAVE R3. 

;LOC TO SAVE R4. 

;L0C TO SAVE R5. 

;loc td save R6. 

jaddr of current csr. 

;addr of good data, or 

contents of csr. 

/•addr of bad data, or 

;status reg contents. 

;tvpe of error 

;expected data. 

;actual data. 

;restart address after end of pass 

?wgrds to memory per iteration 

;words from memory per iteration 

;j[ of interrupts per iteration 

;m0dule identification ndmber=142 

************************** ** **************** 

DEFINITION OF MODE 6 OFFSET TO THE READ BUFFER 



DZBC DEC/X 
XDZBCO.PH 



11 SYSTEM EXERCISER MODULE 
12-OCT-78 11:58 
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LPR=2 ;MODE 6 OFFSET TO THE LINE PARAMETER REGISTER 

TCR=4 ?0FFSET TO THE TRANSMITTER CONTROL REGISTER 

MSR=6 ;0FFSET TO THE MODEM STATUS REGISTER 

TDR=6 „ ;OFFSET TO THE TRANSMITTER DATA REGISTER 

MAIHT=BIT3 ;ENABLE MAINTENANCE MODE BIT 

DCLR=BIT4 JDEVICE MASTER CLEAR 

MSENAB=BIT5 ;ENABLE THE MASTER SCANNER (DEVICE GO) 

RIE=BIT6 ^RECEIVER INTERRUPT ENABLE 

SILOEN=BIT12 ;SILO ALARM INTERRUPT ENABLE 

TIE=BIT14 TRANSMITTER INTERRUPT ENABLE 

RCVON=BIT12 ;TURN THE RECEIVER ON (RECEIVER GO) 

EIGHT=BIT41BIT3 ;EIGHT BITS/CHARACTER SELECTION 



DZBC DEC/X11 SYSTEM EXERCISER MODULE 
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403 

ill 

408 
409 

41J 

m 

4:6 ob' # 

418 00030?' 
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?THESE ARE THE PROGRAM PARAMETERS 



000224* 00OQQ0 

000226' 000000 

000230' 000000 

oog|32: 0Q0000 

0040 

__._ >_0000 

_o5oo- 000000 



000276' 



419 . .., 

420 Q003__ 
'" 000312' 




m 



000310' 
-"311- 



-.0 
000 
000 
000000 



lihpar: 


QPEN 




tmrcnt: 

RCVTMRJ 


OPEN 




OPEN 




DVCNMBR 


:OPEN 




XMTCHT: 


OPEN 




lmxmct: 


-BLKB 


32. 


BGNDATA 
RCVWORD 


SOPEN 




"OPEN 




miss: 


OPEN 




data: 


.BYTE 


QPEN 


select: 


.BYTE 


OPEN 


SLCTLIN 


.BYTE 


17 


donflg: 


.BYTE 


OPEN 


RCVDATA 


.BYTE 


OPEN 


lckout: 


.BYTE 


OPEN 


TEMPI: 


.WORD 
.EVEN 






JSCRATCHWORD USED TO LOAD LINE PARAMETER REGISTERS 

^COUNTER FOR WATCHDOG TIMER U J 

;RECEIVER BREAK LOOP TIMER 

;NUMBER OF DEVICE BEING PROCESSED 

/COUNTER OF TOTAL NUMBER OF TRANSMISSIONS 

JTRANSMISSION COUNTERS FOR EACH DEVICE 

JT&O COPIES OF THE FIRST CHARACTER IN TRANSMIT PATTERN 

;USED TO REPORT RECEIVER ERROR * utKN 

;USED TO REPORT NUMBER OF CHARACTERS MISSING 

CHARACTER BUILDING BYTE 

?ACTIVE DEVICE SELECTION PARAMETER 

;active LINE SELECTION PARAMETER 

WATCHDOG FLAG FOR BUSY DEVICES 

;buffer FOR CHARACTER CHECKING 

IBUFFER ACCESS FLAG 

^TEMPORARY STORAGE FOR ASCII CONVERSION 
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423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 

m 
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;START ROUTINE. DETERMINE IF ANY DZV 'S ARE SELECTED 

;IF SO, BEGIN MODULE PROCESSING... IF NOT, DROP THE MODULE FROM THE 



RUN 



000314' 105067 177764 
000320' 116767 177470 177757 

000326' 001002 

000330' 

000330' 104410 000000' 



CLRB 
MOVB 


DATA 

DVID1, SELECT 


BNE 


RESTRT 


ENDS, 


BEGIN 



000334' 
000334- 
000340- 



mm 





000422* 012767 
000430' 012767 

mi m 

"W o« 

nr- mil 

..3'BSB 

000510' 012703 



^INITIALIZE THE DATA PATTERN WORD 

;COPY THE DEVICE SELECTION PARAMFTER. ARE 

;ANY DEVICES SELECTED? 

;IF SO, BEGIN PROCESSING. IF NOT, DROP THE MODULE 

;DRDP THE MODULE 

^INITIALIZE THE NUMBER OF PASSES TO BE MADE. SET UP THE DZV11 INTERRUPT 
JVCTLOAD FOR I THIS R PBHPDSe! HE SI,BR0UTINE ^^ING TABLE. CALL SUBROUTINE 

RESTRT: 

SETUP1: MOVB SELECT, Rl 
BEQ DROP 



Wa 



7442 
-.7434 
002324- 



000020 
000010 



001344 
001336 



2$: 
3$: 



HOV 

MOV 

MOV 

CLC 

RORB 

BCS 

REQ 

ADD 

ADD 

ADD 

BR 

JSR 

BR2 

JSR 
BR1 
BR 



VECTOR^RO 

ADDR,R2 

#LNKTAB,R3 

Rl 
3$ 

SETUP2 
#10, RO 

#20, R3 
|10,R2 

R5,VCTL0AD 



R5,VCTL0AD 
2$ 



;COPY THE DEVICE SELECTION PARAMETER INTO Rl 

/IF NO DEVICES SELECTED (ALL FLAGS CLEAR) DROP THE 

, MODUL E 

?LDAD THE VECTOR ADDRESS IN RO 

;L0AD R2 WITH ADDRESS OF FIRST DZ11 

JPOINT R3 TO THE BEGINNING OF JSR LINKING TABLE 

;MAKE SURE CARRY BIT IS CLEAR BEFORE ROTATION 

;ISOLATE A SELECTION FLAG IN THE CARRY BIT 

;IF THE FLAG IS SET, GO SET UP THE VECTORS 

?if no flags are left, go set up the buffers 

;if more flags are set, adjust pointers. the 

;vector pointer... 

;the linkage table pointer... 

;and the address pointer 

;go set UP THE NEXT DZVll ADDRFSSES 

;CALL THE VECTOR SETUP ROUTINE FOR RECEIVER 

^VECTOR, PASSING THE RECEIVER BR LEVEL AS THE 

;SET UP THE TRANSMITTER VECTOR PASSING THE 
TRANSMITTER BR LEVEL AS THE ARGUMENT 
;G0 SETUP THE NEXT DZVll 



;THIS BLOCK RESETS ALL THE QUEUE POINTERS, CLEARS THE TRANSMITTER TEXT BUFFER, THE 
*8§£E5YE R BUFFERS ' AND THE QUEUES. THIS iS THE BEGINNING OF THE ITERATIVE PAR* OF THE 
/rKUuKAM. 



002524' 003262 
002524- 003256 




1$: 



177601 
000236' 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

DEC 

BNE 

CLRB 

MOV 



#XMTQUE,XMTQPI 
#XMTQUE,XMTQPO 

!RCVQUE,RCVQPI 
RCVQUE,RCVQPO 
ERRQUE,ERRQPI 
ERRQUE,ERRQPO 
XMTQUE-R3 
315. ,R4 
R3) + 
4 

LCKOUT 
#LNXMCT,R3 



;POINT THE TRANSMIT QUEUE ENTRY (IN) POINTER 
;TO THE BEGINNING OF THE QUEUE 
JPOINT THE TRANSMIT QUEUE RETRIEVAL (OUT) 
;P0INTER TO THE BEGINNING OF THE QUEUE 
;SET UP THE RECEIVER QUEUE POINTERS 

;SETUP THE ERROR QUEUE POINTERS 

;P0INT R3 TO THE BEGINNING OF THE QUEUE AREA 
JUSING R4 AS A COUNTER CLEAR - 

TRANSMITTER, RECEIVERS, AND ERROR QUEUES 

TRANSMITTER TEXT BUFFER... 

RECEIVER SILO BUFFERS 

;CLEAR THE BUFFER ACCESS FLAG 

;P0INT TO THE CHRACTER COUNTER FOR EACH LINE 
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MOV #32.,R4 >SET UP 32. BYTE POINTERS 

2$: MQVB #8.,(R3)+ ;SET UP THIS BYTE AND POINT TO THE NEXT ONE 

DEC R4 ;REDUCE THE COUNT. ARE 32. BYTES SET UP? 

BNE 2$ ;IF NQ # GO SET UP THE NEXT ONE 

;THIS BLOCK SETS THE WATCHDOG TIMER FLAG/ 

JAND BAUD RATE FOR THE ACTIVE DZV11S 

ACTVATEtMOVB 
MOVB 



INITIALIZES THE DZV11 CONDITIONS, SETS THE CHA 



1$: 
2$: 



3$: 



000002 4$: 



MOV 

RORB 

BCS 

BEQ 

ADD 

BR 

MOV 

MOV 

MOV 

JSR 

BIS 

MOV 

DEC 

BEQ 

INC 

BR 



SELECT, RO 
RO-DONFLG 
ADDR,R1 
RO 

INITIAL 
J10/R1 

iDCLR,(Rl) 
4,R2 
RCVON!EIGHT,L 
C £ BAUDRTE 
*MAINT,(R1) 
LINPAR,LPR(R1) 



;COPY THE DEVICE SELECTION PARAMETER 
;SET THE WATCHDOG TIMER DEVICE COMPLETION FLAG 
;LOAD THE ADDRESS OF THE FIRST DZV11 
;ISOLATF, A SELECTION FLAG IN THE CARRY BIT 
;IF SELECTED, GO SET UP THE DEVICE REGISTERS 
;IF NO MORE SELECTED, GO SET UP THE DATA 
?POINT Rl TO THE NEXT DZV11 
;PROCESS NEXT DZV11 
JMASTER CLEAR THIS DZV11 
5USE R2 TO COUNT 4. LINES BEING SET UP 
INPAR 5SET UP NO PARITY, EIGHT BITS/CHAR. 
;G0 CALCULATE THE BAUD RATE TO BE USED 
;ENABLE MAINTENANCE MODE OPERATION 
;SET UP THIS LINE'S PARAMETERS 
;REDUCE THE COUNT. ARE ALL 4. LINES SET? 
;IF YES, GO PROCESS NEXT DZV11 

;IF NO, INCREMENT THE LINE SELECTION PARAMETER 
;G0 SET UP THE NEXT LINE 



;THIS BLOCK SETS UP THE TRANSMITTER TEXT WITH THE TEST DATA 
;RECEIVER AND EACH TRANSMITTER SELECTED 



IT THEN STARTS EACH 



initial:mov 

MOVB 
MOVB 
MOVB 



MDV 

MOVB 

DEC 

BNE 

ADD 

MOVB 

MOVB 

MOV 

JSR 

CLC 

RORB 

BCS 

BEQ 

ADD 

BR 

BIS 

MOVB 

BR 



2$: 

3$: 

4$: 



#XMTBUF,R1 ;POINT Rl TO THE START OF THE BUFFER AREA 
DATA,RO ;BEGIN SETTING UP THE CHARACTER PATTERN 

RO,BGNDATA ;COPY THE FIRST DATUM BEING TRANSMITTED IN THIS 
R0,BGNDATA+1 ;GROUP .BGNDATA WILL BE USED TD SET 

;UP LNCKBF(THE LINE CHECK BUFFER ) IN THE CKDATA ROUTINE 

;USE R2 TO COUNT THE LOOP ITERATIONS 

;PUT A CHARACTER IN THE BUFFER 

;REDUCE COUNT. HAVE ALL CHARACTERS BEEN MADE? 

?IF NO, GO LOAD THE NEXT CHARACTER 

;POINT TO THE BEGINNING OF THE NEXT PATTERN 

;SAVE THAT PATTERN BEGINNING 

;CCPY THE DEVICE SELECTION PARAMETER 

?LOAD THE ADDRESS OF THE FIRST DZV11 

;FIND OUT HOW MANY LINES ARE RUNNING 

;MAKE SURE CARRY BIT IS CLEAR BEFORE ROTATION 

;ISOLATE A SELECTION FLAG IN THE CARRY BIT 

;IF SELECTED, GO START THE DEVICE 

;IF NO MORE SELECTED, GO START WATCHDOG TIMER 

;POINT Rl TO THE NEXT DZV11 

;G0 PROCESS THE NEXT DZV11 
R1);EBABLE TRANSMITTER INTERRUPTS 
!1) ;ENABLE THE TRANSMITTERS FOR ALL SELECTED LINES 

;PROCESS THE NEXT DZV11 



R2 
1$. 

RO/DATA 
SELECT, RO 
ADDR,R1 
PC,GETLINE 



?IE!MSENAB,I 
SLCTLIN,TCR(I 
3$ 
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lit* 



000736' 
000744' 
000746' 
000746' 
000752' 



mm- 

000766' 
000770' 
000774' 



0010 
0010 



001012' 



001014' 
001016' 



012767 
005004 

104407 
104407 
105767 

mm 

001367 
005367 
001363 

116703 

140367 
006003 

103402 

005204 

000774 
010467 



000005 177262 



000000' 

oooooo- 

177325 



177305 
177277 



001022' 10442Q 000000' 000312' 

001030' 003756' 

001036' 10440? OOoZoO' 003742' 

001044' 004767 000760 

001050' 105767 177231 

001054' 001002 

001056' 104410 000000- 

001062' 

001062' 104413 000000' 

001066- 000167 177436 
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JTHIS IS THE WATCHDOG TIMER. WHEN A DEVICE HAS SUCCESSFULLY TRANSMITTED AND 
;RECEIVED ALL DATA. IT CLEARS ITS CORRESPONDING BIT IN DONFLG. IF THIS 
;DOES NOT OCCUR, A MODULE MESSAGE IS REPORTED. IF MORE DEVICES ARE TO BE 
PROCESSED, THIS ITERATION IS CONSIDERED COMPLETE. IF NO DEVICES REMAIN TO BE 
;PROCESSED, THE MODULE IS DROPPED. 

?SET THE TIMER COUNT FOR THE BREAK LOOP 

;using r4, return to monitor 65535 times 

;temporary return to monitor 

;then continue at next instruction. 

;if donflg is clear, each selected device was 

^successful 

;if so, perform endpass processing 

;IF NOT, REDUCE COUNT AND BREAK AGAIN 
JBREAK IF COUNT NOT EXCEEDED 
JREDUCE THE OVERALL TIME. IS IT EXCEEDED? 
;IF NO, START ANOTHER BREAK LOOP 

;IF TIMEOUT OCCURRED, SAVE THE REMAINING FLAG 

;CLEAR*THE SELECTION FLAG FOR THIS DEVICE 

;DETERMINE WHICH DEVICE WAS READ FOR REPORTING 

>PURPOSES 

;IF THIS IS THE DEVICE, R4 CONTAINS THE CORRECT 

;LINE NUMBER... GO REPORT IT 

;IF NOT, INCREMENT R4, WHICH WAS INITIALLY 

;FROM THE PREVIOUS LOOP 

;G0 SEE IF THIS IS THE DEVICE 

JTHE DEVICE NUMBER HILL BE REPORTED AS STATC 

ait************************************:**-*: 

;CONVERT TEMPI TO ASCII AND 
;STORE AT M2 



TMRSET 
TIMER: 

1$: 


: mov 

CLR 

BREAK< 
BREAK? 
TSTB 


#5,TMRCNT 

;, BEGIN 
;, BEGIN 
DONFLG 




BEQ 
DEC 
BNE 
DEC 
BNE 


FINISH 

1$ 

TMRCNT 
TIMER 




MOVB 


DONFLG, R3 


2$: 


BICB 
RQR 


R3, SELECT 




BCS 


3$ 




INC 


R4 



BR 2$ 
3$: MOV R4, TEMPI 

. ***************** 



OTOA$, BEGIN, TEMPI, M2 
« ******************** 
JSR PC/SAVREG 
MSGN$, BEGIN, HUNG 
JSR PC,GETREG 
TSTB SELECT 
BNE FINISH 

END$, BEGIN 



r** ******************************** ******* 

;SAVE THE REGISTERS BEFORE LEAVING THE MODULE 

;ASCII MESSAGE CALL WITH COMMON HEADER 

;RESTORE THE PREVIOUS REGISTER VALUES 

;ARE THERE ANY DEVICES STILL ACTIVE? 

;IF YES, REDUCE COUNT AND CONTINUE 

;IF NO, DROP THE MODULE 

;DROP THE MODULE 



;THIS BLOCK REDUCES THE ITERATION COUNT AND GOES TO ACTVATE IF THE COUNT IS NOT EXCEEDED 
FINISH: 



ENDITS, BEGIN 
JMP ACTVATE 



;SIGNAL END OF ITERATION. 
;MONITOR SHALL TEST END OF PASS 
;IF NO, START PROCESSING AGAIN 



5TRANSMITTER INTERRUPT SERVICE ROUTINE 
;THIS ROUTINE STORES THE ADDRESS OF THE CSR POINTER (OFFSET IN THE JSR LINKAGE 
;TABLE) IN THE TRANSMITTER QUEUE 

; THE ROUTINE THEN ENABLES INTERRUPTS FOR THE CORRESPONDING RECEIVER 
;AND RETURNS CONTROL TO THE MONITOR. 
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1212 



H §§1111- 88if8§ 

ililil 002S24 ' 002570 
000004 000000* 001132" 

002524* 002532 



7 -% 

566 

Oil 176674 

104405 000000* 000000 




XMTINTS 

1$! 
XMTSRV! 

1$S 



2$: 



MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 

?- 



000004 

000100 

46* 000006 
46* 



104400 000000* 



3$: 
4$: 
5$: 



#XMTQUl+16, 



;load THE 

{UPDATE THE QUEUE ENTRY .__..__ 
XMTQPI 2HAS THE QUEUE BOUNDARY BEEN 



OFFSET TO THE CSR INTO TRANSMITTER QUEUE 
HE QUEUE ENTRY POINTER 
_ ...„_ ...E QUEUE BOUNDARY BEEN EXCEEDED? 
;IF NO, CONTINUE PROCESSING 



XMTQUE, XMTQPI ^lOgS, RESET THE POINTER TO QUEUE BEGINNING 
SP)*,R5 ^RESTORE THE PREVIOUS R5 VALUE 



PIRQ$,BEGIN,XMTSRV 



QUEUE UP TO CONTINUE AT XMTSRV AND RTI 



MOV 
ADD 
CMP 

RBI* 

MOV 
TST 
BMI 
MOV 
MOV 
JSR 



§XMTQP0,R1 
|2,XMTq£o 



•FETCH THE OFFSET FROM THE QUEUE 



2,XMTQP0 JUPDATE THE QUEUE RETRIEVAL POINTER 
XMTQUE+16,XMTQP0 JHAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
$ ;IF NO, CONTINUE PROCESSING 



^xmtque/xmtqpo 
r rJ{' R0 



2 , RESET POINTER' 
CSR ADDRESS INTO_Rj_ 



QCESSING 
TER TO B 



EGINNING OF THE QUEUE 



&; 




;if . 

;LOAD .... 3 .., 

;IS THIS A VALID INTERRUPT? 

;IF YES/ GO ENABLE RECEIVER INTERRUPT 

>IF NO, SET UP THE CSR ADDRESS FOR ERROR REPORTING 

>SET UP THE CONTENTS 

;SAVE THE REGISTERS BEFORE ERROR MESSAGE 



MOV 

ASL 

ASL 

ADD 

BIC 

TSTB 

BNE 

MOVB 

MOV 

DEC 

BMI 

ASL 

BR 

BIC 

BNE 

IF 

MOVB 
INCB 
DECB 
BIS 



EXITS/BEGIN 



,R2 



#TIe;(RO) 
LNXMCT(R3) 



NXMCT(R3) 




?RESTDRE THE REGISTERS 

;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
;GET THE LINE NUMBER FROM THE HIGH BYTE OF CSR 
ISOLATE THE LINE NUMBER IN R2 
;GET THE NUMBER OF THIS DEVICE 



************ a***** ********* * ************ ******** 

.EHHdlHScUH.... 

JSR PC/GETREG 
EXIT$, BEGIN 

b h ?? b } WW* 

2(R1)/R3 _.._ 

R3 ^MULTIPLY THE DEVICE NUMBER BY FOUR 

;THIS INVOLVES MULTIPLYING IT BY TWO TWICE 
^CALCULATE THIS LINE'S TABLE OFFSET 

jdisable interrupts before an overrun occurs 

;all charac. transmitted? 

>if not go load buffer 

;if so, reset the count of characters 

;set a bit pointer in r3 

;use r2 as a count of rotations to make 

;is the pointer now at the right line? 

;if not, point it to the next line 

;g0 see if this is the line 

mf so, disable transmissions on this line 



,ir E>U, U1SAHLH TKANSMlSSlUNi) UN THIS LIN 
;IF MORE TRANSMITTERS ARE ACTIVE, GO EXIT 



XMTBUF(R3),TDR(r6 



•■OTHERWISE* ENABLE THE RECEIVER 
"SKIP RESETTING THE INTERRUPT ENABLE 



XHTBUF(R 

LNXMCT(R_ 

#TIE,(R0) 



LOAD THE CHAR INTO TRANS BUFFER 



0) iUURU inc. U lift K 

;create next character 

;count a charac. for this line 

;restart trans, interrupts 

>exit to monitor. module wait for interrupt. 
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0015L 

mn, 

001552 
001554 

mi 

001570 



/RECEIVER INTERRUPT SERVICE ROUTINE 
;THIS ROUTINE STORES A POINTER TO THE GSR ADDRESS OF THE INTERRUPTING DEVICE IN THE 
^RECEIVER QUEUE. SERVICE IS DEFERRED TO PRIORITY LEVEL 0. AT DEFERRED SERVICE (RCVSRV), 
;THE OFFSET IS FETCHED FROM THE QUEUE.* THE INTERRUPT AND INTERRUPT ENABLE BITS ARE 
/CLEARED AND THE SILO, IS EMPTIED INTO THE SOFTWARE BUFFER. IF ALL CHARACTERS 
/WERE NOT RECEIVED* THIS IS REPORTED. CHECK THE BUFFER AND REPORT DATA ERRORS. 



/HC.KC. BUI KCUC1VE.U/ 1HID ID K&f LtlfcLIV 1 tl fc HUtftK 

;ANOTHER RECEIVER IS ALREADY USING THE LINE CHECK BUFFER (LNCKBF), SUBSEQUENT 

;RECEIVERS WILL NOT BE PERMITTED ACCESS UNTIL THE FIRST IS COMPLET" -" " 

>ARE ANY CHARACTER ERRORS REPORT THEM. WHEN ALL DATA IS CHECKED, 7 
;THE LINE CHECK BUFFER AND CLEAR THE CORRESPONDING BIT IN DONFLG. 



IF 



'E. IF THERE 



Mil 



000002 002330 
002562* 002322 

002544* 002312 

000000* 001414' 
176671 

oooooo- 
oooooo- 

176651 

000002 002246 
002562' 002240 

002544* 002230 

030300 



002000 176522 
176522 



ADD 

CMP 

BHIS 

MOV 

MOV 



R5,@RCVQPI 
#RI£,(a<R5) + 

«2,RCVQPI 
|RCVQUE+16,RCVQP 



;STORE THE OFFSET IN THE RETRIEVAL QUEUE 
;DISABLE THIS RECEIVER'S INTERRUPTS BEFORE 
;ITS OTHER LINES OVERRUN THE QUEUES 



;UPDATE THE QUEUE ENTRY POINTER 

I ;has the queue boundary bee" - 

;IF NOT, CONTINUE PROCESSING 



5 «ir nui< tuHunut t'KUl-tiaifib 

RCVQUE/RCVQPI ;RESET THE POINTER TO QUEUE BEGINNING 
SP)+,R5 ;RESTORE THE PREVIOUS VALUE OF R5 



pirq$7begin7rcvsrv" 



QUEUE UP TO CONTINUE AT RCVSRV AND RTI 



US: 



1$: 



2$: 



3$: 



TSTB 

BEQ 

BREAKS 

BREAK? 

BR 

COMB 

MOV 

ADD 

CMP 

BHIS 

MOV 

MOV 

BIC 

MOV 

MOV 

MOV 

MOV 

BGE 

DEC 

BNE 

BR 

TST 

JSR 

BREAKS 

BREAKS 

JSR 

DEC 

BPL 

MOV 

MOV 

MOV 

JSR 



LCKOUT 

IIS 
-BEGIN 
-BEGIN 

RCVSRV 

LCKOUT 

PCVQPO-RO 

#2,RCVQPO 



RCVQUE+16,RCVQP 



ii. 



CVQUE,RCVQPO 
R0)+,R1 
30300, <R1)+ 



ff^UUU/Kt, VT 

XMTCNT,R3 
?R1),'R2)+ 

R3 
2$ 
CKDATA 

PC,SAVREG 
,BEGIN 
,BEGIN 

PC,GETREG 

RCVTMR 

2$ 

-(R0),CSRA 

8r8hs ACSR 

PCSAVREG 



;TEST THE BUFFER LOCK FLAG. IS ACCESS PERMITTED? 

?IF YES, GO SET THE LOCK AND CHECK THE DATA 

TEMPORARY RETURN TO MONITOR.... 

;THEN CONTINUE AT NEXT INSTRUCTION. 

/TRY TO ACCESS AGAIN 

;DENY OTHER ACCESSES TO THE BUFFER 

;FETCH THE OFFSET FROM THE QUEUE 

JUPDATE THE QUEUE RETRIEVAL POINTER 

;HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 

;IF NO, CONTINUE PROCESSING 

;IF YES, RESET THE POINTER TO THE QUEUE BEGINNING 

;L0AD THE CSR ADDRESS INTO Rl 

;DISABLE RECEIVER INTERRUPT AND INTERRUPT ENABLE 

;AND POINT Rl TO THE NEXT RECEIVED CHAR. REGISTER 

;L0AD THE SOFTWARE SILO BUFFER ADDRESS 

;SET THE RECEIVER BREAK LOOP TINER 

;SET THE COUNT FOR STORING THE DATA 

;STORE A WORD IN THE SOFTWARE SILO 

;IF THE DATA WASN'T VALID, GO ALLOW A LITTLE TIME FOR IT 

;IF IT WAS VALID, REDUCE THE COUNT. 

;IF NOT ZERO, GO STORE THE NEXT WORD 

;IF ALL CHARACTERS RECEIVED, GO CHECK THEM 

;RESET R2 TO THE PROPER BUFFER LOCATION 

?SAVE THE REGISTER VALUES 

TEMPORARY RETURN TO MONITOR.... 

;THEN CONTINUE AT NEXT INSTRUCTION. 

;RESTORE THE REGISTER VALUES 

;HAS ENOUGH TIME BEEN PERMITTED FOR A CHARACTER? 

;IF NO, TRY TO GET ONE. 

;LOAD THE DEVICE ADDRESS 

;LOAD THE CSR CONTENTS 

/REPORT THE NUMBER OF CHARACTERS MISSING 

;SAVE THE REGISTERS 
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) 



001574*' 012767 
001602' 104405 
001610" 004767 




000014 176304 
000000* 003726* 
000214 



176446 



**«******&****&**#-&&*** 



MACYll 30M1052) 12-OCT-78 16:35 PAGE 17 

^PV #14,ERRT¥P 

S ********* *$■**** ************ as********* 
RDERS, BEGIN, TAB1 |PID NOT RgCEIVS ALL TRANSMITTED CHARACTERS 

»a**aS a* ****§&** 1*******1:11**^ ************* ********!************ 

JSR PC,GETREG 
;THIS ROUTINE PERMITS ONE DEVICE TO HAVE ITS DATA CHECKED. 
IfQR EACH LINE OF THE 



DEVICE* DATA ERRORS ARE REPORTED. 



000010 
176370 



000322 
176422 

177774 
§0 " 



603706* 

000 
003 



000336 
03706* 



mm 



176337 

oooooo- 



4$: 



5$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Bfi 

BEQ 

JSR 

MOVB 

SWAB 

BIC 

CMPB 

Sii 

INCB 

DEC 

BME 



#LNCKBF,RS 

BGNDATA,(R5}+ 

BGNDATA>5$* 

l0(R0),DVCNMBR 

XMTCHT^R3 

(R2)+,R0 

PC,STATERR 
RO,RCVDATA 

Il77774 < RQ 
LNCKBF(RO),RCYDA 

PC,DERROR 
LNCKBF(RQ) 



?POINT TO THE BEGINNING OF THE BUFFER 
jSET UP FOUR LINE CHECK BYTES 

SLOAD THE SOFTWARE SILO ADDRESS IN R2 
JSAVE THE NUMBER OF THIS DEVICE 
JLOAD COUNT TO COMPARE CHARACTERS 
jFETCH A WORD FROM THE SILO INTO RO 
MF IT'S INVALID, GO CLEAN UP BUFFERS 
;ARE THERE ANY TRANSMISSION ERRORS? 



:F NO, GO DETERMINE THE LINE NUMBER 
IF YES, GO DETERMINE THE ERROR TYPE 
SAVE THE RECEIVED CHARACTER 
PUT THE LINE NUMBER IN RO'S LO&ER BYTE 
ISOLATE THE LINE NUMBER IN RO 
A MS THE DATA CORRECT? 
.IF YES, GO CHECK THE NEXT CHARACTER 
|IF NO, GO REPORT A DATA ERROR 
;SET UP THE NEXT CHARACTER FOR THIS LINE 
^REDUCE THE COUNT, ARE ALL CHARACTERS CHECKED? 
;IF NO, GO CHECK THE NEXT CHARACTER. 



;THIS ROUTINE UNLOCKS THE LINE CHECK BUFFER TO PERMIT ACCESS BY OTHER DEVICES. 

JIT THEN COMPUTES THE LINE NUMBER AND CLEARS THE APPROPRIATE FLAG FROM THE WATCHDOG 

$TIMER BYTE. 



RCVDONESCLRB 
MOV 
CLR 
SEC 

l$s ROL 
DEC 
BGE 
BICB 



LCKOUT 
|DCLR,-(R1) 



D1WO Ru,l 

EXITS, BEGIN 



PRESET THE BUFFER ACCESS SEMAPHORE 

KLEAR THIS DEVICE AND DISABLE IT 

;THE DELETION FLAG BILL PROPAGATE IN RO 

JUSE THE CARRY BIT TO BUILD THE DELETION FLAG 

JMOVE THE FLAG TO THE NEXT DEVICE 

?HHEN THIS NUMBER IS NEGATIVE, THE CORRECT 

JDEVICE IS POINTED TO. 

?CLEAR THIS FLAG 

;EXIT TO MONITOR. MODULE 8AIT FOR INTERRUPT. 



■%, 



DZBC DEC 
XDZBCO.P 

744 
745 

?« 

748 
749 



/Xll SYSTEM EXERCISER MODULE 
11 12-QCT-78 11:58 



744 



75 

75: 

m 
¥ 

76 
76 



001754" 010320 

■:;-;■ mm 

)01762* 022323 
J01764* 010223 

mm- mm 
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;SUBROUTINES 



;THE FIRST IS THE VECTOR LOADING SUBROUTINE. THE VECTOR ADDRESS IS PASSED IN RG, 
;THE DEVICE ADDRESS IS PASSED IN R2. THE LINKING TABLE ADDRESS IS PASSED IN R3 . 
?THE BOS REQUEST PRIORITY LEVEL IS A PARAMETER TAKEN INDIRECTLY THROUGH R5. 



VCTLOADSMOV 
MOVE 
INC 
CMP 
MOV 
TST 
RTS 



R3,(R0)+ 
g(R5)+,(R0)+ 

£§ 3)+ 



;L0AD THE ADDRESS OF THE LINKING INSTRUCTION 
;AND THE PRIORITY LEVEL INTO THE VECTOR 
;POINT RO TO THE NEXT VECTOR ADDRESS 
;POINT R3 TO THE CSR INSERT LOCATION 
?LOAD THE DEVICE ADDRESS IN THE LINK TABLE 
JALIGN R3 FOR THE NEXT DEVICE 
^RETURN TO CALLING BLOCK 



;THIS ROUTINE SAVES THE REGISTER VALUES IN THE ERROR QUEUE, A FIRST-IN, 
;FIRST-OUT DISCIPLINE WRAPAROUND BUFFER. 



002564* 
001674 



16705 001670 

012501 
01250" 



705 002644* 

ME mnr 



116702 176214 



1$: 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

MOV 

RTS 



ERRQP 
R0,(R! 
Rl,-~ 



,R5 



R5) + 
R5J + 
R5) + 
R5) + 

QUE+60,R5 



&RRQUE,R5 
5,ERRQPI 
PC 



JUSE R5 FOR INDEXING CAPABILITY 

?SAVE RO... 

;SAVE Rl... 

JSAVE R2... 

;SAVE R3.». 

;AND R4 

;has the queue BOUNDARY BEEN EXCEEDED? 

;IF NO, GO RELOAD THE POINTER 

PRESET R5 TO THE QUE BEGINNING 

;SET THE ENTRY POINTER TO NEXT ENTRY POINT 

^RETURN TO THE CALLING BLOCK 



;THIS ROUTINE RETRIEVES REGISTER VALUES FROM THE ERROR QUEUE 



IS! 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHIS 

MOV 

HOV 

RTS 



iRRQPO,R5 
R5)+,R0 
R5J+,R1 
R5)+,R2 
R5)+,R3 
R5j+,R4 
ERRQUE-»-60,R5 
ERRQUE,R5 
5,ERRQPO 



USE R5 FOR INDEXING CAPABILITY 
RETRIEVE RO... 

Rl... 

R2.«. 
R3 
AND R4 

HAS THE QUEUE BOUNDARY BEEN EXCEEDED? 
IF NO, GO RELOAD THE POINTER 
RESET R5 TO THE QUEUE BEGINNING 

SET THE RETRIEVAL POINTER TO THE NEXT FETCH POINT. 
RETURN TO THE CALLING BLOCK 



B«m 



06367 176 
00207 



76110 



;THIS ROUTINE CALCULATES HOW MANY CHARACTERS ARE BEING TRANSMITTED IN EACH PATTERN 

GETLINE:MOVB SLCTLIN,R2 ;COPY THE LINES SELECTED PARAMETER 

CLR XMTCNT PRESET THE TOTAL TRANSMISSION COUNT 

IS: RORB R2 ;GET A SELECTION BIT INTO THE CARRY BIT 

ADC XMTCNT JADD IT TO TOTAL NUMBER OF ACTIVE LINES 

TSTB R2 ;ARE 4. LINES CHECKED? 

BNE 1$ >IF NOT, GO CHECK THE REST 

ASL XMTCNT ?NOH MULTIPLY BY 8. 

ASL XMTCNT ; DO THIS BY SHIFTING THREE TIMES 

ASL XMTCNT ?HE NOW KNOW HOW MANY CHARACTERS ARE IN EACH BURST 

RTS PC JRETURN TO THE CALLING SEGMENT 



DZBC DEC/K11 SYSTEM EXERCISER MODULE 
XDZBCO.P11 12-OCT-78 11258 



MACY11 30A(1052) 12-OCT-78 16l35 PAGE 19 



IJHIS ROUTINE CALCULATES THE BAUD RATE FROM THE SRI OPTION. IF SRI IS 0,THE DEFAULT 
<5&S E Q ?fin 9 §?§£. !§ ASSIGNED. THE^LEaST SIGNIFICANT BIT IS THE ONLY ONE c6n5IDERED. 
?THE BAUD RATE IS THEN LOADED INTO THE LINE PARAMETER WORD. 



005767 
0014' " 




baudrte:tst 

BEQ 



i: »p jl 

D* 004767 1775 



76070 

010167 iJiflJ 
004767 177546 
012767 000017 175654 

002232* 104405 000000* 003734* 



002240- 
002244* 



mm 



004767 177520 

005741 

010167 175620 

Has j«ajri?ias 

005742 

010267 175602 

062700 003706' 

010067 175570 

002312* 104404 000000' 



002316* 
002322* 



004767 177506 
000207 



SRI 



1$: 



2$: 



~Rl,R4 

15, R3 



176032 3$: 



MOV 

MOV 

ROR 

BCS 

DEC 

BMI 

BR 

BISB 

RTS 

BIS ^... 

BREAKS, BEGIN 

BREAKS, BEGIN 

RTS PC 



R3,L 



. -,LINPAR+1 

PC 

"7000,LINPAR 



;IS A SPECIFIC RATE SELECTED? 

;IF NO, GO ASSIGN THE DEFAULT RATE 

/IF YES COPY SRI 

;SET UP THE BIT CONFIGURATION FOR A BAUD RATE SELECTION 

; ISOLATE THE NEXT BIT IN THE CARRY BTT 

;|F THIS IS THE BIT, PUT TOGETHER THE RAUD RATE 

;IF NOT, CALCULATE THE NEXT BIT CONFIGURATION 

;IF NONE OF THE BITS WERE SET, RETURN TO THE CALLING PRO 

;GO CHECK THE NEXT ALTERNATIVE 

; PL ACE THE BAUD RATE IN THE LINE PARAMETER REGISTER 

;RETURN TO THE CALLING PROCEDURE 

;SET THE DEFAULT RATE(9600. BAUD) 

TEMPORARY RETURN TO MONITOR 

;THEN CONTINUE AT NEXT INSTRUCTION. 
;RETURN TO CALLING PROCEDURE 



JTHIS ROUTINE DETERMINES WHAT TYPE OF ERROR HAS INDICATED BY THE SILO AND REPORTS EACH 
R0,RCVWORD 



staterr:mov 

MOV 
MOV 
JSR 
MOV 
• ******* 

HRDERS 
****** 

JSR PC,GETREG 
RTS PC 



(R1),CSRA 
R1,ACSR 
PC,SAVREG 
#17,ERRTYP 

*********** 



;C0PY THE INFORMATION RECEIVED 

;GET THE CONTENTS OF THE CONTROL REGISTER 

JREPORT THE CSR CONTENTS 

;SAVE THE REGISTERS 

********************* *********************** 

^DEVICE RECEIVER ERROR 
************************************ ******** 

;RESTQRE THE REGISTERS 
;RETURN TO CALLING PROCEDURE 



;IHIS ROUTINE CALCULATES THE BUFFER ADDRESSES OF THE INCORRECT DATA AND REPORTS THE ERRO 



derror: jsr 

TST 

MOV 

MOVB 

MOVB 

TST 

MOV 

ADD 

MOV 

********* 



PC,SAVREG 



R1,CSI 



6aters, begin 

• ************ 



lnckbf(ro),asb 
rcvdata,awas 

-(R2) 

R2,HASADR 

"LNCKBF,R0 

g,SBADR 

************* 



;SAVE THE PRESENT REGISTER VALUES 

;P0INT TO THE CSR ADDRESS AGAIN 

;SHOW WHICH DEVICE IT WAS 

;L0AD THE CORRECT DATA VALUE 

;L0AD THE ACTUAL DATA VALUE 

;GET THE SILO ADDRESS OF THE DATA 

;L0AD IT FOR REPORTING 

CALCULATE THE CORRECT VALUE ADDRESS 

fREPORT IT 



J K -.. 

************************************ 

, DATA ERROR! !! 
**********************- ■ ■ - 

PC,GETREG 
PC 



******* 



********* 



********** * 
;RESTORE THE REGISTERS 
;RETURN TO THE CALLING PROCEDURE 



;LINKAGE TABLE 
;EACH ENTRY CONSISTS OF A JSR INSTRUCTION FOLLOWED BY A LOCATION INTO WHICH THE CSR IS 

?VS4S§Sfi D ? OL 5:SS E Sel Y .SHLiJ L S n Sli FF §S„ A S8S ES §f followed by a jsr for the transmitter 

INTERRUPT, THE CSR ADDRESS WORD, AND THE NUMBER OF THE INTERRUPTING DEVICE 
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854 
855 
856 
857 
85f 
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LNKTAB: JSR 


SILOO 
JSR 



JSR 


SILOl 
JSR 

1 

JSR 


SIL02 
JSR 

2 

JSR 


SIL03 
JSR 

3 

JSR 


SIL04 
JSR 

4 

JSR 


SIL05 
JSR 

5 

JSR 


SIL06 
JSR 

6 

JSR 


SIL07 
JSR 

7 


R5,RCVINT 
R5,XMTINT 


R5,RCVINT 
R5,XMTINT 
R5,RCVINT 


R5,XMTINT 
R5,RCVINT 
R5,XMTINT 


R5,RCVINT 


R5,XMTINT 


R5,RCVINT 


R5,XHTINT 


R5,RCVINT 


R5,XMTINT 


R5,RCVINT 
R5,XMTINT 





;THESE ARE THE QUEUES. 



xmtque: .blkw 8. 
rcvque: -blkw 8. 
errque: .blkw 25. 



35 PAGE 20 
;LINK FOR RECEIVER 
;LINK FOR TRANSMITTER 
;LINK FOR RECEIVER 1 
;LINK FOR TRANSMITTER 1 
;LINK FOR RECEIVER 2 
;LINK FOR TRANSMITTER 2 
;LINK FOR RECEIVER 3 
;LINK FOR TRANSMITTER 3 
;LINK FOR RECEIVER A 
;LINK FOR TRANSMITTER 4 
;LINK FOR RECEIVER 5 
;LINK FOR TRANSMITTER 5 
;LINK FOR RECEIVER 6 
;LINK FOR TRANSMITTER 6 
;LINK FOR RECEIVER 7 
;LINK FOR TRANSMITTER 7 



JTRANSMITTER SERVICE QUEUE 
'RECEIVER SERVICE QUEUE 
>ERROR SERVICE QUEUE 



;THESE ARE THE BUFFERS 



; ^ 
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) 




42504 044526 042503 

20040 
000006 
044040 047125 000107 

000001 



MACY11 


30AU052) 12-QCT-7B 


xmtbuf: 

SILOO: 

siLOl: 

SIL02: 
SIL03: 
SIL04: 
SILOS: 
SIL06: 
SIL07: 

lnckbf: 


.BLKB 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKB 


32. 

fl: 

32. 

11: 

32. 
32. 
4. 




;THESE 


ARE THE QUEUE 


xmtqpi: 
xmtqpo: 
RCVQpi: 
rcvqpo: 

ERRQPI: 

errqpo: 


OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 






;these 


ARE THE ASCII 


TABl: 


xmtcnt 




TAB2: 

hung: 


MISS 

177777 

DVCNMBR 

RCVWORD 

177777 

Ml 

177777 




mi: 


.ASCII 


'DEVICE ' 


M2: 

M3: 


.BLKB 
.ASCIZ 

.EVEN 
.END 


6 

' HUNG' 
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TRANSMITTER BUFFERS, ONE CHARACTER FOR EACH LINE 

?RECEIVER BUFFER FOR DEVICE 

RECEIVER BUFFER FDR DEVICE 1 

RECEIVER BUFFER FDR DEVICE 2 

RECEIVER BUFFER FOR DEVICE 3 

RECEIVER BUFFER FOR DEVTCE A 

RECEIVER BUFFER FOR DEVICE 5 

^RECEIVER BUFFER FOR DEVICE 6 

RECEIVER BUFFER FOR DEVICE 7 

;BUFFER FOR CHECKING INDIVIDUAL LINE DATA 



TRANSMITTER QUEUE ENTRY (IN) POINTER 
?TRANSMITTER QUEUE RETRIEVAL POINTER (OUT) 
;RECEIVER QUEUE POINTERS 

;ERROR QUE POINTERS 

MESSAGES AND ERROR PRINTOUT TABLES 

;TABLE 1 IS USED TO REPORT XMTCNTING CHARACTERS 

;FIRST £ THE NUMBER TRANSMITTED IS GIVEN 

;THEN THE NUMBER OF CHARACTERS NOT RECEIVED 

;TERMINATOR FOR TABLE 1 

;TABLE 2 IS USED TO REPORT RECEIVER ERRORS 

;W0RD CONTAINING THE ERRORS 

;TERMINATOR FOR TABLE 2 
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000110R 
002I26R 
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CROSS REFERENCE TABLE — USER SYMBOLS 



608* 694* 

582 

442 489 

837* 

838* 

803# 

431 542 

667 688 

511* 512* 



823* 
521 



543 566 
689 699 
708 709 



570 
740 



575 

815 



580 
816 



612 
844 



BIT10 = 
BITll = 
BIT12 = 
BIT13 = 
BIT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BIT4 = 
BITS = 
BIT6 = 
BIT7 = 
BIT8 = 
BIT9 = 
BREAK$= 
BR1 
BR2 ^ 
BTODS = 
CDATAS= 



OOOIOQR 
000304R 



m 



542 
457 
454 



707# 



402 
402 



693* 
510 



733 
544 
737* 



m* 



552 
937 



ERRQUE 

ERRTYP 

EXITS = 

FINISH 

GETLIN 

GETPA$= 

GETREG 



ill- 



575 

769* 

783* 

640 
579# 



928# 

768 

825* 

740 



77 4« 
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940# 




OTQAS 
PASCl' 
PIRQf 




390# 
414$ 



S3 
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CROSS REFERENCE TABLE — USER SYMBOLS 



Mil 

m 

566 

597 



664 
724* 



669* 732* 

isr sir 

625* 637* 



93K 



349 

m 



350 351 

!?§ in 



368 
385 
418 



I?S # 



371 
406 
924 



373 

13! 



410 
928 
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000310R 

Q01750R 

001350R 

010000 

003716R 

003720R 
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CROSS REFERENCE TABLE — USER SYMBOLS 



718* 

732# 

854 

497 

653* 

670 

469 

664$ 

679* 

821* 

429 



721 

860 



838 
866 



656* 657 

671* 672 

657 659 

668 

691* 

93 8 

437# 



659* . HH 
674* 9l7# 
672 674 



IW 



000422R 
010000 

003006R 



3S06R 



609 

842* 

427* 



915# 

m 

918 



w 



919,, 
530 



654 
687 

438 



696 
487 



760# 
520 



824 
554* 



834 
572 



uuuuxon 
000020R 

000024R 
000314R 
0Q9S26R 
002204R 
000062R 



388 
803 



42 6# 
821# 



TAB! 

TAB2 

TCR 

TDR 

TEMPI 

TIE 



566 
622 



^m 






..) 
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XDZBC0»P11 



TIMER 
THRCHT 



XMTQPI 
XM" 

XMfSRV 



12-0CT-78 11:58 
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CROSS REFERENCE TABLE — USER SYMBOLS 



749# 




603* 
594 



§14* 

III* 

912# 



795* 
887 



603 
913# 



905& 
914# 



915& 



916# 



917# 



918# 



919# 



000000 
003772 



000 
001 



ERRORS DETECTED: 

DEFAULT GLOBALS GEHERATED: 

XDZBC0,XMBCO/SQL£CJF:SY < M=DDXCaM,XDZBC0 



HfcTffl 



RAT 

d: 



3 .4 SECOMD 



GES) 



